a 


Bas 


FFFFFFFFFRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTTT LLet 
FFFFFRFFRRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTFT Lie 
FFFFFRFRRRFFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTITTTTTTTT §=LtL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFE 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 

FFF 000 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR = =RRR TTT LLL 

FFF 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 0 000 RRR RRR RRR RRR TTT LLL 

FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLELLLLLLLLLL 
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Cc 
G& 
Cc 
c 


FFFFFEFFFE 000000 RRRRRRRR RRRRRRRR EEEEEEEEEE AAAAAA DDDDDDDD SSSSSSSS UU UU 

FREEFFFFFF 000000 RRRRRRRR RRRRRRRR EEEEEEEEEE AAAAAA DDDDDDDD SSSSSSSS_ UU UU 

FF 00 00 RR RR RR RR EE AA AA DD DD Ss 

FF 00 00 RR RR RR RR EE AA AA DD DD SS UU UU 

FF 00 00 RR RR RR RR EE AA AA DD DD SS UU UU 

FF 00 RR RR RR RR EE AA AA DD DD SS UU UU 

FFFEFFFF 00 00 RRRRRRRR RRRRRRRR EEEEEEEE AA AA DD DD SSSSSS UU UU 

FFFFFFEFF 00 00 RRRRRRRR RRRRRRRR EEEEEEEE AA AA DD DD SSSSSS UU UU 

FF 00 00 RR RR RR RR EE AAAAAAAAAA DD DD SS UU UU 

FF 00 00 RR RR RR RR ce AAAAAAAAAA DD DD $$ UU UU 

FF 00 00 RR RR RR RR EE AA AA DD DD SS UU UU want 

FF 00 00 RR RR RR RR EE AA AA DD DD SS UU UU noes 

FF 000000 RR RR RR RR EEEEEEEEEE AA AA DDDDDDDD SSSSSSSS UUUUUUUUUU nee 

FF 000000 RR RR RR RR EEEEEEEEEE AA AA DDDDDDDD SSSSSSSS UUUUUUUUUU ports 
LL LIIIII SSSSSSSS 

LL eeeee SSSSSSSS 

LL II SS 

LL I] Ss 

LL I] SS 
LL Il $$ 

LL II SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL II ss | 
LLELLLLLLLL III SSSSSSSS 
LLELLLLELLL III SSSSSSSS 
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; Detailed Current Edit History 


HISTO 
DEC 
DECLARATION SU = READ Sequential UNFORMATTED 


? 
FORSREAD_SU = entry point for FORTRAN READ SEGUENTIA 16-SEP-1984 AX/VMS Macro V04- 
1-012 fs Bree ei 13be 10559548 FRORMTE. eae se okReAbsu.mars1 2% dy, 


TITLE A pa AD. SU = entry point for FORTRAN READ SEQUENTIAL UNFORMATTED | 
SIDENT /1-01 Files FORREADSU.MAR edit: sawiOr2 


SRA HEEKEAAAAAAA RAAT EAE ARAAAAARAAAAARAEAAAAARARAAERRAEAEAAEEHERARAAAAEEEAEAEE 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL wg CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


** * 
*® ® 
*® ve 
*® ® 
*® ® 
*® ® 
: tt 
ie THe OTIC SOF TWARE ANY OTHER 
ie NEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY s 
*# OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
:® TRANSFERRED. . 
:* ® 
i THE INFORMATION IN THIS SOFTWARE 1S SUBJECT TO CHANGE WITHOUT NOTICE 
*® ® 
*® 7 
*® ® 
:® * 
*® ® 
*® ® 
**® *® 
: * 


AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


LAR RARARRARASARLAASARAARASERESALESEAASELALE SERRA S ERE S RSE R RSA R ESSE SSSR SRSA SS 


; ; ABSTRACT: 
This module contains tne entry point for the FORTRAN | 
READ SEQUENTIAL UNFORMATTED I/0 statement. It is simply 
a call to FORS$IO_BEG with bits in RO which describe the 
parameter List. FORS$$I0_BEG interprets the parameters. 


: ; MAINTENANCE NOTE: 
The transfer vector (RTLVECTOR+ALLGBL) must have the following: 


. TRANSFER FORSREAD_SU 
. MASK FORS$$IO_ BEG 
BRW FORSREAD_Su+2 
This puts the correct mask in entry vector, that is FORS$I0_BEG entry mask. 
Furthermore this module must only use RO and Ri 
since any other register might not be in the entry mask for FORSS$IO_BEG. 
: ; ENVIRONMENT : User access mode; mixture of AST level or not | 
: ; AUTHOR: Richard B. Grove, CREATION DATE: 28-May-78 


: ; MODIFIED BY: 
- Hastings, 29-July-78 


FANS OODNA UE WN 0 COONAN SO ODN UNE WN 0 ODNOAU EW OOONOUS win 


; FACILITY: FORTRAN Support Library - user callable 
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SUV PV IIS BB EB EB BE BE EAA N NAINA AI POPP NPININPINPN 2 2 PO Os ss es es 
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HISTORY ; Detailed Current Edit History 6-SEP FORRTL.SRCJFORREADSU.MAR; 1 
: -SBTTL HISTORY ; Detailed Current Edit History 
53 Edit History for Version 1 
61 91 - Add comment about vectors. TNH 23-June-78 
6 “12 = Pass arg in RO, not ROR, add comments. TNH 29-July-78 
6 1-001 = Update version number and copyright notice. JBS 16-NOV-78 
64 ; 1-002 = Change statement type symbols to be LUBSK... JBS 07-DEC-78 
65 ; 1-005 - Change statement type symbols to be ISBSK..._ JBS 11-DEC-78 
6 1-004 = Add “_"' to the PSECT directive. JBS 22-DEC-78 
6 1-005 = Add FORSREAD_KF FORSREAD_KO, FORSREWRITE SF, FORSREWRITE_SO, 


FORSREAD_IF, ~FORSREAD_ 10, FORSWRITE_IF, FORSWRITE_10, | 

FORSREAD_KU, FORSREWRITE_SU, 

SBL 2-hay-1979 | 

1-006 = Remove all entry peiors that need object time formatting, 
pee them in FORSENTRY_OBJ so that we can arrange to 

oad the forest compiler only when it is needed. 


JBS 26-JUN-19 
1-007 = Remove entry point FORSENCODE_MF; we will code a new module 
for it and FOR$$IO BEG to see how much 1/0 initiation time 
improves. JBS 02-JuL-19 | 

- Do Likewuse for FORSREAD DU and FORSWRITE DU. yes 03-JUL-1979 | 
e | 

| 


8 
9 - Remove all entry points except FORSREAD_SO; each of t 
others gets its own module so we can potect ively load 
the necessary UDF and REC modules. JBS 09-JUL-1979 
1-010 - Correct a type in the references to REC level. 
JBS 12-JUL-1979 
1-011 = New parameter format for FORSSIO_BEG. SBL 5-Dec-1979 
1-012 = Change BRW FORS$IO_BEG+2 to JMP G*FORSSIO_BEG+2. JAW 21-Feb-1981 


SoOOoOOCoOoCoCOoCOOooCOooCOoOoOoOoOSCOoOOoOOoOOoOoOoOoOoOSoSoOOoO =< 
SOOCQOCOCOOCOOCOOOCOCOOCOCOoOOCOOCOOOoOCOOooOoOOo 
pele lolol eoleleleleleolelolelelelelsloleoleloleolo) 

~“ 

= 


~ 
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-SBTTL DECLARATIONS | 


; INCLUDE FILES: 


SFORPAR : Define inter-module FORTRAN symbols 
SISBDEF i; Define statement type symbols 


> EXTERNAL SYMBOLS: | 

7 | 
-DSABL GBL ; Declare all external symbols 
~-EXTRN FORS$I0 BEG 3; common 1/0 statement processing 


:4 | 
3; The eg references are to make sure the necessary UDF and REC | 
; modules are loaded. These are the routines which are called through 
3; the dispatch tables in FORSSDISPAT. 
.EXTRN FORSSUDF_RUO, FORSSUDF_RU1, FORSSUDF_RU9 | 
TEXTRN FORSSREC-RSUO, FORSSREC_RSU1, FORSSREC_RSU9 | 
MACROS: 
NONE 


PSECT DECLARATIONS: 


Sete te Ge Ge Ge Ge 


0000 -PSECT _FORSCODE PIC,USR,CON,REL,LCL,SHR,EXE,RD,NOWRT,LONG 


| 
| 
; | 
; EQUATED SYMBOLS: | 
| 
| 


OWN STORAGE : 
NONE 


RNRNMNNNNINNIDN 2 2 2 2 OF MQOOOODOOOOCOCOOCOOOOOOOOOOMMCD 


WOWNAUE WN —$ O ODNAUES WN $0 ODNAUS WN OC ODNOU SWI -OOan 
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-SBTTL FORSREAD_SU = READ Sequential UNFORMATTED 


~s 
oO 
De 
fs 
Dee 
ms 
> 
“no 
c—- 
=] 
‘(- 
> 


+t 
FUNCTIONAL DESCRIPTION: 


Initialize the FORTRAN I/0 system to perform 
a READ sequential unformatted 1/0 statement. 


CALLING SEQUENCE: 


CALL FORSREAD_SU (unit.rl.v, 
. err_adr.j.r C, end_adr.j.rJ)) 


INPUT PARAMETERS: 

unit.rl.v logical unit number 

sndoedr 4.13 Stlonet ines serene 

IMPLICIT INPUTS: 

NONE except those used by FORSS$IO_BEG. 
OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

NONE except those left by FORSSIO_BEG. 
COMPLETION CODES: 

NONE 
SIDE EFFECTS: 

NONE except those of FORS$IO_BEG. 


COOoooQoooooooooooocoo 


SOOO OCQOOOCOCOOOCOOOCOOOoSoCOoOO VY 


DOD MOOS OSOCSOSSSSSOCooooceocoooooooooOoOoOoOoOoOooOoOooooon ft CUO 


Bete Se Se Ge Ge Se Se Se Ge Ge Se Se Ge Se Se Se Se Se Ge Se Se Ge Ge Ge Ge Ge Ge Se Ge Se Se Se Se Se Sete Se 


50 04 9A 
00000002"GF 17 


FORSREAD_SU:: MASK FORS$10 BEG 
MOVZBL #ISBSK_ST_TY_RSO, RO ; Statement type 
JMP G*FORS$$S10_BEG+2 3 branch past call mask 


SOOO SCOOCOSOSOOOSOSOSOOSOOOOSOSOSCOOSOOOOOSOOOOOOOOOOOOOOOOO 


SOSCSCSCSOOOOCOSCSOOOOCOSOOOSOSOSOOOoOSoOoOoSo 


SOOCOCOCOCOOCOCOOCOOOCOOOCOOSoOoOOoOoOoOoCOO 
a ed ad dd 


SSSI SSDS DEDEDE DD DS ODS DS TTT BB BS BE BB BE WWIII 


- END 


eee, aaeEEEEOOooEEEEEeEeEeEEeEeeeeeeeeeeee ea am 


~~ 
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FORSREAD_SU 
Symbol table 


FORSS10 BEG 
FORSSREC_ 


RSREAD_ 
ISBSK_ST_TY_RSU 


PSECT name 


Initialization 
Command processing 
Pass 1 
gyrase; table sort 

Pass 2 

Symbol table output 
Psect synopsis output 
Cross-reference output 
Assembler run totals 


6679 b 
There were 20 


Macro Library name 
"$255$DUA28: 
“$255$DUA28: 

TOTALS (all libraries) 


Page faults 


The working set Limit was 1050 
ytes (14 pages) of virtua 
pages of symbol table space ie to hold 1 
177 source Lines were read in Pass 1, 
9 pages of virtual memory were used to define 
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4 
S-SEP-1986 10:59:38 
teerenee x 
eekteeee x 
eeeeeeee x 0 
eekeerer x 0 
eeeeeeee x 
ekeReeee Xx 
ekereeee x 00 
00000000 RG 01 
= 00000004 
peroeanee scenes ecne 
! ,_Psect synopsis a 
Allocation PSECT No. Attributes 
00 ¢ Q.) NOPIC USR CON ABS 


00000000 “( Q.) 
00000008 ¢ 11.) O1C¢ 1.) PIC USR CON” REL 


poeaccsceceoecocesossooces} 


er 


CPU Time Elapsed Time 
35 00:00:00.09 00:00:00.74 
131 00:00:00.63 88: 8 308-08 
124 00:00:01.22 00:00:05.47 
0 00:00:00.19 00:00:00.43 
46 00:00:00.50 00:00:02.19 
3 80:00:00: 65 00:00:00.45 
2 00:00:00.0 BRR Bb «Be 
9 00:00:00.00 00:00:00.0 
34 00:00:02.69 00:00:15.70 
eo 
memory were used to buffer the intermediate code. 


non-local and 0 Local symbols. 
produci t object records in Pass 2. 
macros. 


oo 


FORRTL. OBJJFORRTL.MLB; 1 
SYSLIBISTARLET. MLB;2 


183 GETS were required to define 2 macros. 
There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESSION/D1 SABLE = (GLOBAL, TRACEBACK) /LIS=L1S$:FORREADSU/OBJ=0BJ$:FORREADSU MSRC$:FORREADSU/UPDATE=(ENHS:FORREADSU) +L I | 


AX/VMS 
FORR 


MS 
TL.S 


v04-00 Page 
FOR READSU.MAR; 1 


CL — NOEXE NORD NOWRT NOVEC BYTE 
CL SHR EXE 


RD NOWRT NOVEC LONG 
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